=============================================
Firestorm Spell *credit The Zeus*
=============================================

Sub Main(Player as Long)
Dim Damage as Long, Mana as Long
'General Projectile - Mage Spell - Firestorm
'If GetPlayerMap(Player) = 1427 Then Exit Sub 'Dodgeball

Mana = 15
If GetPlayerMana(Player) < Mana Then
    PlayerMessage(Player, "You must regenerate before casting.", Grey)
    Exit Sub
End If
SetPlayerMana(Player, GetPlayerMana(Player) - Mana)

Damage = GetPlayerDamage(Player) + 3


CreatePlayerMagicProjectile(Player, GetPlayerDirection(Player), 17, Damage)

End Sub